<link href="Estilos/EstilosPagina.css" rel="stylesheet" type="text/css">
<!--#include file="Librerias/mssql-ds.dll" -->
<!--#include file="Funciones/FuncionesGenerales.asp" -->
<%
	'// Recuperar los parametros DondeIr y QueHacer
	DondeIr = request.QueryString("DondeIr")
	if DondeIr = "" then DondeIr = 0
	QueHacer = request.QueryString("QueHacer")
	if QueHacer = "" then QueHacer = 0
	qFichero = request.QueryString("qFichero")
	if qFichero = "" then qFichero = 0
	qApertura = request.QueryString("qApertura")
	if qApertura = "" then qApertura = 0
	qReg = request.QueryString("qReg")
	if qReg = "" then qReg = 0
	qAnio = request.QueryString("qAnio")
	if qAnio = "" then qAnio = 0
	
	'// Comando para Guardar Registro
	If QueHacer = "cmdAsignar" Then
		Gestion = Request.Form("Gestion")
		if Gestion = "" then Gestion = 0
		swInsert = True 
		For i = 0 To qReg
			valor = Request.Form("check_"& i &"")
			If Trim(valor) <> "" Then
				sSQL = ""
				sSQL = sSQL & " INSERT INTO AperturaUnidadOrganizacional (aper_id, uni_id, auo_gestion)"
				sSQL = sSQL & " VALUES ("& qApertura &", "& valor &", "& Gestion &")"
				Resultado = ExecuteBD(sSQL, 1)
				If Trim(Resultado) <> "Proceso concluido" Then
					swInsert = False 
				End If
				If swInsert Then
					response.Cookies("poa_cookies_llave_mensaje") 	= "DONE"
					response.Cookies("poa_cookies_ruta_siguiente") 	= "Vacio.asp"
					response.Cookies("poa_cookies_texto_mensaje") 	= "Se ha realizado la asignaci&oacute;n satisfactoriamente."
				Else
					response.Cookies("poa_cookies_llave_mensaje") 	= "NONE"
					response.Cookies("poa_cookies_ruta_siguiente") 	= "Vacio.asp"
					response.Cookies("poa_cookies_texto_mensaje") 	= "Existe un error en la asignaci&oacute;n, verifique e int&eacute;ntelo nuevamente."
				End If
			End If
		next
		DondeIr = 1
	End If
	
	'// Comando para Borrar Registro
	If QueHacer = "cmdDesasignar" Then
		
		qSeleccion = request.QueryString("qSeleccion")
		if qSeleccion = "" then qSeleccion = 0
		swDelete = True 
		sSQL = ""
		sSQL = sSQL & " DELETE FROM AperturaUnidadOrganizacional WHERE auo_id = " & qSeleccion
		Resultado = ExecuteBD(sSQL, 1)
		If Trim(Resultado) <> "Proceso concluido" Then
			swDelete = False 
		End If
		If swDelete Then
			response.Cookies("poa_cookies_llave_mensaje") 	= "DONE"
			response.Cookies("poa_cookies_ruta_siguiente") 	= "Vacio.asp"
			response.Cookies("poa_cookies_texto_mensaje") 	= "Se ha realizado la asignaci&oacute;n satisfactoriamente."
		Else
			response.Cookies("poa_cookies_llave_mensaje") 	= "NONE"
			response.Cookies("poa_cookies_ruta_siguiente") 	= "Vacio.asp"
			response.Cookies("poa_cookies_texto_mensaje") 	= "Existe un error al realizar la desasignaci&oacute;n, debido a que el registro cuenta con dependencias activas, verifique e int&eacute;ntelo nuevamente."
		End If
		
		DondeIr = 1
	End If
	
%>

<!-- Pagina de inicio -->
<% if DondeIr = 0 then %>
<%
	sSQL = ""
	sSQL = sSQL & " SELECT uni_id, uni_depende, uni_unidad FROM UnidadOrganizacional WHERE (uni_estado = 1)"
	Matriz = MatrixBD(sSQL, 1)

	If VarType(Matriz) = 8  then
		QtyRegistros = -1
	Else
		QtyRegistros = UBound(Matriz,2)	
	End If
%>
<form action="UnidadOrganizacionalSeleccion.asp?QueHacer=cmdAsignar&qApertura=<%=qFichero%>&qReg=<%=QtyRegistros%>" method="post" name="frmAssign">
<table width="300" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td align="left" valign="middle"><strong>Seleccione Unidades Organizacionales para la Actividad : <%=AperturaProgramaticaCompuesta(qFichero)%></strong></font><br><br></td>
  </tr>
  <tr>
    <td align="center">
	<table width="100%" border="0" cellspacing="1" cellpadding="1">
      <tr>
		<td width="20" class="EncabezadoTablaPeq" title="Asignar" align="center">A</td>
        <td width="20%" class="EncabezadoTablaPeq" align="center">C&oacute;digo</td>
        <td width="20%" class="EncabezadoTablaPeq" align="center">Depende</td>
        <td width="60%" class="EncabezadoTablaPeq" align="center">Unidad Organizacional</td>
        <td width="20" class="EncabezadoTablaPeq" title="Dessignar" align="center">D</td>
	  </tr>
	  <% for i = 0 to QtyRegistros %>
      <%
	  if i mod 2 = 0 then
	  		bgcolor = "TablaFila1"
	  else
	  		bgcolor = "TablaFila2"
	  end if
	  
	  ' Comprobar si se trata del registro y carpeta
	  sSQL = ""
	  sSQL = sSQL & "SELECT uni_id, auo_id FROM AperturaUnidadOrganizacional WHERE (uni_id = "& Matriz(0,i) &") AND (aper_id = "& qFichero &")"
	  MRes = MatrixBD(sSQL, 1)
	  If VarType(MRes) = 8  then
			CReg = -1
	  Else
			CReg = UBound(MRes,2)	
	  End If
	  
	  If CReg = -1 Then
			disabled = ""
			imagen = ""
			enable = ""
	  Else
			disabled = "disabled='disabled'"
			imagen = "<img src='Iconos/tick.png' width='16' height='16' border='0'>"
			enable = "<a href=""UnidadOrganizacionalSeleccion.asp?QueHacer=cmdDesasignar&qSeleccion="& MRes(1,0)&"""><img src='Iconos/cross.png' width='16' height='16' border='0'></a>"
	  End If 
	  %>
	  <tr class="<%=bgcolor%>">
        <% If Len(imagen) = 0 Then %>
	  	<td><input name="check_<%=i%>" type="checkbox" value="<%=Matriz(0,i)%>" <%=disabled%>><%=imagen%></td>
        <% Else %>
        <td><%=imagen%></td>
        <% End If %>
        <td><%=Matriz(0,i)%></td>
        <td><%=Matriz(1,i)%></td>
        <td><%=Matriz(2,i)%></td>
        <td><%=enable%></td>
	  </tr>
	  <% next %>
	</table>
	</td>
  </tr>
  <tr>
    <td><input type="hidden" name="Gestion" value="<%=qAnio%>">&nbsp;</td>
  </tr>
  <tr>
    <td align="center"><input name="Aceptar" value="   Aceptar   " type="submit" class="Boton">&nbsp;<input name="Cancelar" value="   Cancelar   " type="button" class="Boton" onClick="javascript:window.location.href='Vacio.asp'"></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
</form>
<% end if %>

<!-- Pagina de Mensajes -->
<% if DondeIr = 1 then %>
<table width="300" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td>
    	<br><br>
		<%
            key = Request.Cookies("poa_cookies_llave_mensaje")
            If Len(key) = 0 Then key = "UNESPECTED"
            
            path = Request.Cookies("poa_cookies_ruta_siguiente")
            If Len(path) = 0 Then path = "default.asp"
            
            msj = Request.Cookies("poa_cookies_texto_mensaje")
            If Len(msj) = 0 Then msj = "Error Inesperado."
        %>
        <% If Trim(key) = "UNESPECTED" Then %>
            <table width="300" border="0" align="center" cellpadding="5" cellspacing="5" style="border:1px solid #999;">
              <tr>
                <td colspan="2">&nbsp;</td>
              </tr>
              <tr>
                <td width="48"><img src="Imagenes/SymbolsError.png" width="48" height="48"></td>
                <td width="252"><%=msj%></td>
              </tr>
              <tr>
                <td colspan="2" align="center"><input name="Aceptar" value="   Aceptar   " type="button" class="Boton" onClick="javascript:window.location.href='<%=path%>'"></td>
              </tr>
              <tr>
                <td colspan="2" align="center">&nbsp;</td>
              </tr>
            </table>
        <% End If %>
        
        <% If key = "DONE" Then %>
            <table width="300" border="0" align="center" cellpadding="5" cellspacing="5" style="border:1px solid #999;">
              <tr>
                <td colspan="2">&nbsp;</td>
              </tr>
              <tr>
                <td width="48"><img src="Imagenes/SymbolsDone.png" width="48" height="48"></td>
                <td width="252"><%=msj%></td>
              </tr>
              <tr>
                <td colspan="2" align="center"><input name="Aceptar" value="   Aceptar   " type="button" class="Boton" onClick="javascript:window.location.href='<%=path%>'"></td>
              </tr>
              <tr>
                <td colspan="2" align="center">&nbsp;</td>
              </tr>
            </table>
        <% End If %>
        
        <% If key = "NONE" Then %>
            <table width="300" border="0" align="center" cellpadding="5" cellspacing="5" style="border:1px solid #999;">
              <tr>
                <td colspan="2">&nbsp;</td>
              </tr>
              <tr>
                <td width="48"><img src="Imagenes/SymbolsError.png" width="48" height="48"></td>
                <td width="252"><%=msj%></td>
              </tr>
              <tr>
                <td colspan="2" align="center"><input name="Aceptar" value="   Aceptar   " type="button" class="Boton" onClick="javascript:window.location.href='<%=path%>'"></td>
              </tr>
              <tr>
                <td colspan="2" align="center">&nbsp;</td>
              </tr>
            </table>
        <% End If %>
        
        <% If key = "INFO" Then %>
            <table width="300" border="0" align="center" cellpadding="5" cellspacing="5" style="border:1px solid #999;">
              <tr>
                <td colspan="2">&nbsp;</td>
              </tr>
              <tr>
                <td width="48"><img src="Imagenes/SymbolsInformation.png" width="48" height="48"></td>
                <td width="252"><%=msj%></td>
              </tr>
              <tr>
                <td colspan="2" align="center"><input name="Aceptar" value="   Aceptar   " type="button" class="Boton" onClick="javascript:window.location.href='<%=path%>'"></td>
              </tr>
              <tr>
                <td colspan="2" align="center">&nbsp;</td>
              </tr>
            </table>
        <% End If %>
        <%  
            response.Cookies("poa_cookies_llave_mensaje") 	= ""
            response.Cookies("poa_cookies_ruta_siguiente") 	= ""
            response.Cookies("poa_cookies_texto_mensaje") 	= ""
        %>
    </td>
  </tr>
</table>
<% end if %>

